home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / multi_media_demo_maker / multimediademomakerv1.0.dms / multimediademomakerv1.0.adf / sources / vektorobjekt2.S < prev   
Text File  |  1990-11-13  |  1KB  |  46 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorobjekt-Sourcecodes
  3. ;-----------------------------------------------------------------------
  4. ; Normales Linienobjekt (Quader)
  5. ;-----------------------------------------------------------------------
  6. ;(Seka-format)
  7. ;Benutzung:
  8. ;a (return)
  9. ;wi (return)
  10. ;name (return)
  11. ;start (return)
  12. ;end (return)
  13. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  14. ;------------------------------------------------------------------------
  15.  
  16. start:
  17. dc.l    "VECT"    ;Kennung fuer Objekt!!!
  18.  
  19. filledob5:
  20. dc.l polylist-filledob5        ;offset zu Punktstruktur
  21. dc.l verbindung-filledob5    ;offset zu Verbindungsstruktur
  22. dc.w 400            ;zoom = 400
  23. dc.w 0,$fff,0,0,0,0,0,0        ;8 Farben    (2.Farbe is Objektfarbe)
  24. dc.b 0    ;kein sync
  25. dc.b 2    ;2-Linienobjekt
  26. dc.w 0    ;hier keine Funktion
  27. dc.l 0    ;keine Zusatzroutinen
  28. dc.l 0    ;...
  29.  
  30. polylist:    ;Punktstruktur
  31. dc.w 8        ;8 Punkte
  32. dc.w -40,-40,40    ;Koordinaten (x/y/z)
  33. dc.w -40,40,40
  34. dc.w 40,40,40
  35. dc.w 40,-40,40
  36. dc.w -40,-40,-40
  37. dc.w -40,40,-40
  38. dc.w 40,40,-40
  39. dc.w 40,-40,-40
  40. verbindung:    ;Verbindungstruktur
  41. dc.w 12
  42. dc.w 0,1    ;1.Linie
  43. dc.w 1,2    ;2.Linie...
  44. dc.w 2,3,3,0,4,5,5,6,6,7,7,4,0,4,3,7,1,5,2,6
  45. end:
  46.